home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1015_ScrollBar < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.0 KB  |  50 lines
  1. %case window field%
  2.     %if not mainScroll%
  3.         %HandleName%:%    %ControlHandle;
  4.     %end if%
  5. %case create%
  6.     %if not mainScroll%
  7.         %HandleName% := GetNewControl (%cntlID%, newWindow);    
  8.     %end if%
  9. %case dispose%
  10. %case mousein%
  11. %case update%
  12. %case activate%
  13.     %if not mainScroll%
  14.         HiliteScroll (%HandleName%, activate);
  15.     %end if%
  16. %case track%
  17.     %if not mainScroll%
  18.         if whichControl = %HandleName% then begin
  19.             TrackScroll (%HandleName%, whichPart, where, nil);
  20.         end;
  21.     %end if%
  22. %case itemNr%
  23.     %DefineItem%
  24. %case dialog field%
  25.     %fieldname%:%    %integer;
  26.     %Enable?%
  27. %case init field%
  28.     %fieldname% := 1;
  29.     %Enable?%
  30. %case auxiliary%
  31.     %needsFilter%
  32.     {----------}
  33.     Procedure %Itemname%Action {(newValue:    integer;
  34.                                oldValue:    integer)};
  35.     Begin
  36.     End; {%Itemname%Action}
  37.     
  38. %case filter%
  39.     if not filtered then begin
  40.         filtered := FilterScroll (event, %itemname%, @%Itemname%Action, itemHit);
  41.     end;
  42. %case set%
  43.     SetScrollItem (%Itemname%, %Fieldname%, 1, 100, 10);
  44. %case enable%
  45.     %Enable?%
  46. %case hit%
  47.     %itemname%: begin
  48.             DoScrollItem (itemNr, %fieldname%);
  49.         end;
  50. %case finish%